CARRUCOLA FISSA= INDIFFERENTE
vantaggio = facilità di applicazione della forza

muovere i cursori

RAGGIOcarrucola = 5 (slider from 2 to 5, step 0.1)
sollevamento = 17.7 (slider from 5 to 18, step 0.1)
peso = 5 (slider from 2 to 5, step 0.1)
A = (-0.983162051292483, 1.9030930153747703)
c = Circle(A, 0.5)
d = Circle(A, RAGGIOcarrucola)
B = (-1, 10)
e = Segment(B, A)
C = Intersect(d, e)
f = OrthogonalLine(C, e)
g = Line(A, f)
D, E = Intersect(d, g)
h = Circle(D, sollevamento)
i = OrthogonalLine(D, g)
j = OrthogonalLine(E, g)
k = Circle(E, sollevamento)
F, G = Intersect(k, j)
l = OrthogonalLine(D, g)
H = Point(l)
q = Circle(H, sollevamento)
I, J = Intersect(q, l)
K = Intersect(l, f)
L = Intersect(j, f)
m = Segment(K, L)
n = Segment(D, J)
r = Segment(E, F)
s = Segment(D, E)
M = Intersect(d, m)
t = Segment(M, A)
a_1 = Segment(B, M)
c_1 = Circle(J, 2.0)
N = (-6, -6)
O = (-2, -6)
b_1 = Segment(N, O)
d_1 = OrthogonalLine(J, b_1)
P, Q = Intersect(c_1, d_1)
e_1 = Circle(J, peso)
f_1 = Line(J, n)
R, S = Intersect(e_1, f_1)
FORZAapplicata = Vector(J, S)
p = OrthogonalLine(F, r)
g_1 = Circle(F, peso)
h_1 = OrthogonalLine(F, p)
T, U = Intersect(g_1, h_1)
i_1 = Line(T, p)
k_1 = Circle(F, 0.8)
V, W = Intersect(k_1, p)
j_1 = Line(W, h_1)
l_1 = Line(V, h_1)
m_1 = Segment(V, W)
p_1 = Circle(T, 1.5)
n_1 = OrthogonalLine(T, h_1)
Z, A_1 = Intersect(p_1, n_1)
q_1 = Segment(V, A_1)
r_1 = Segment(W, Z)
s_1 = Segment(A_1, Z)
PESOsollevato, v, w, z, a_2 = Polygon(V, W, Z, A_1)
t_1 = Segment(V, W)
b_2 = Segment(W, Z)
c_2 = Segment(Z, A_1)
d_2 = Segment(A_1, V)
B_1 = (-1.1692187606604039, 10.461701646299131)
C_1 = (-0.6854713163038095, 10.27564493693121)
e_2 = Ellipse(B_1, C_1, B)
D_1 = Intersect(d, t, 1.0)
E_1 = Intersect(d, s, 2.0)
F_1 = Intersect(d, t, 1.0)
G_1 = Intersect(d, t, 1.0)
H_1 = Intersect(d, s, 2.0)
I_1 = Intersect(d, t, 1.0)
J_1 = Intersect(d, s, 2.0)
K_1 = Intersect(d, s, 2.0)
L_1 = Intersect(d, t, 1.0)
M_1 = Intersect(d, s, 2.0)
N_1 = Intersect(d, t, 1.0)
O_1 = Intersect(d, t, 1.0)
P_1 = Intersect(d, s, 2.0)
Q_1 = Intersect(d, s, 2.0)
a = OrthogonalLine(O_1, s)
R_1 = Intersect(d, a, 2.0)
S_1 = Intersect(d, s, 2.0)
T_1 = Intersect(d, a, 2.0)
U_1 = Intersect(d, s, 2.0)
V_1 = Intersect(a, s)
b = Segment(O_1, V_1)
f_2 = Segment(O_1, V_1)
α = 5.462880558742252 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
D' = Rotate(D, α, V_1)
g_2 = Segment(D', V_1)